home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / write rutine.s < prev    next >
Text File  |  1995-03-17  |  274b  |  26 lines
  1. write  = -48
  2. pline:
  3. bsr pmsg
  4. pcrlf:
  5. move  #10,d0
  6. bsr pchar
  7. move #13,d0
  8. pchar:
  9. move.b d0,outline
  10. move.l #outline,d2
  11. pmsg:
  12. move.l d2,a0
  13. clr d3
  14. ploop:
  15. tst.b (a0)+
  16. beq pmsg2
  17. addq.l #1,d3
  18. bra ploop
  19. pmsg2:
  20. move.l dosbase,a6
  21. jsr write(a6)
  22. rts
  23.  
  24. outline:   dc.w 0
  25. conhandle: dc.l 0
  26.